home *** CD-ROM | disk | FTP | other *** search
/ USGS: Oil & Gas Fields of Asia Pacific / USGS Maps Showing Geology, Oil & Gas Fields of Asia Pacific.iso / pc / ASPAC / VIEWPC03 / SCRIPTS / GEOLABEL.AVE < prev    next >
Text File  |  1999-01-17  |  2KB  |  52 lines
  1. ' geolabel.ave
  2. ' labels geology at scale > 1:10000000
  3. ' Douglas Steinshouer   11/14/98
  4. ' GeoLukas for USGS GEO CERT World Energy Project
  5.  
  6. ' Defines the theme and clears existing labels
  7.  
  8. theView = av.GetActiveDoc
  9. theTheme = theView.GetThemes.Get(4)
  10. theTheme.SetActive(true)
  11. theTheme.GetGraphics.SelectLabels
  12. theTheme.GetGraphics.Invalidate
  13. theView.GetGraphics.ClearSelected
  14.  
  15. ' Determines scale of zoomed view
  16.  
  17. size = theView.GetDisplay.ReturnVisExtent
  18. tall = size.GetHeight
  19. long = size.GetWidth
  20.  
  21. ' Filters scale and draws labels
  22.  
  23.  if ((tall < 889000) AND (long < 1227670)) then
  24.    agelabel = Labeler.Make(size)
  25.    agelabel.SetFeatureWeight(#LABEL_WEIGHT_NO)
  26.    agelabel.SetLabelWeight(#LABEL_WEIGHT_HIGH)    
  27.    agesymbol = TextSymbol.Make
  28.    agesymbol.SetFont(Font.Make("Arial","Normal"))
  29.     if ((tall < 44450) AND (long < 61383)) then
  30.       agesymbol.SetSize(15)
  31.     elseif ((tall < 88900) AND (long < 122767)) then
  32.       agesymbol.SetSize(12)
  33.     elseif ((tall < 222250) AND (long < 306917)) then
  34.       agesymbol.SetSize(10)
  35.     elseif ((tall < 444500) AND (long < 613835)) then
  36.       agesymbol.SetSize(7)
  37.     elseif ((tall < 666751) AND (long < 920752)) then
  38.       agesymbol.SetSize(5)
  39.     else     
  40.       agesymbol.SetSize(4)
  41.     end
  42.    theTheme.SetLabelTextSym(agesymbol)
  43.    agelabel.Load(theTheme)
  44.    theView.GetAutoLabels(agelabel,true)
  45.  else
  46.    theTheme.GetGraphics.SelectLabels
  47.    theTheme.GetGraphics.Invalidate
  48.    theView.GetGraphics.ClearSelected
  49.  end
  50.  end
  51.  
  52.